home *** CD-ROM | disk | FTP | other *** search
/ Odyssey Incentive Vacation Travel Planner / Odyssey Incentive Vacation Travel Planner 1.2.iso / dest.dxr / 00004_Field_4.txt
Text File  |  1998-07-29  |  1KB  |  19 lines
  1. on goToThumbs
  2.   
  3.   --  list of all possible values of gUsersChoice
  4.   
  5.   set usersChoiceList to ["Arizona", "CaliforniaSD", "CaliforniaSF", "Connecticut", "Florida", "Illinois", "Louisiana", "Maine", "Maryland", "Massachusetts", "Minnesota", "Missouri", "Montana", "Nevada", "New Jersey", "New Mexico", "New York", "Oregon", "Pennsylvania", "South Carolina", "Tennessee", "Texas", "Virginia", "Washington", "Wyoming"]
  6.   
  7.   --  list of corresponding values for thumbnail movie
  8.   set categoryList to ["AZ", "CASD", "CASF", "CT", "FL", "IL", "LA", "ME", "ML", "MA", "MN", "MS", "MO", "NV", "NJ", "NM", "NY", "OR", "PA", "SC", "TN", "TX", "VA", "WA", "WY"]
  9.   
  10.   --  figure out what the position of gUserChoice is in the usersChoiceList and then locate the corresponding item in categoryList to set gCategory
  11.   set listPos to getPos(usersChoiceList, gUsersChoice)
  12.   set gCategory to getAt(categoryList, listPos)
  13.   
  14.   
  15.   setThumbScreen
  16.   set gSection to #thumb
  17.   puppetTransition gTransition
  18.   go to frame "thumbDisplay"
  19. end